object FormPickStudent: TFormPickStudent
  Left = 258
  Top = 111
  BorderStyle = bsDialog
  Caption = 'Choose Your Name'
  ClientHeight = 444
  ClientWidth = 518
  Color = clSilver
  Font.Color = clBlack
  Font.Height = -16
  Font.Name = 'Arial'
  Font.Style = []
  PixelsPerInch = 120
  Position = poScreenCenter
  Scaled = False
  ShowHint = True
  OnActivate = FormOnActivate
  OnCreate = PickOnCreate
  OnDestroy = PickOnDestroy
  TextHeight = 18
  object Label1: TLabel
    Left = 51
    Top = 14
    Width = 406
    Height = 69
    Alignment = taCenter
    AutoSize = False
    Caption = 
      'Please choose your entry from the list below .   Select by highl' +
      'ighting or clicking on your entry, then "Select Current"'
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    WordWrap = True
  end
  object GroupBox1: TGroupBox
    Left = 23
    Top = 90
    Width = 468
    Height = 75
    Caption = 'Sort Order:'
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object SpdBtnSortFirstLast: TSpeedButton
      Left = 12
      Top = 26
      Width = 146
      Height = 35
      Hint = 'Show the names in First-Last name order'
      GroupIndex = 111
      Down = True
      Caption = 'First-Last'
      Font.Color = clBlack
      Font.Height = -17
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = ClkSortOrder
      OnMouseDown = ButtonOnMouseDown
    end
    object SpdBtnSortLastFirst: TSpeedButton
      Left = 162
      Top = 26
      Width = 145
      Height = 35
      Hint = 'Show the list in Last-First name order'
      GroupIndex = 111
      Caption = 'Last-First'
      Font.Color = clBlack
      Font.Height = -17
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = ClkSortOrder
      OnMouseDown = ButtonOnMouseDown
    end
    object SpdBtnSortStudentNum: TSpeedButton
      Left = 312
      Top = 26
      Width = 145
      Height = 35
      Hint = 'Show the list in Student Number order'
      GroupIndex = 111
      Caption = 'Student Number'
      Font.Color = clBlack
      Font.Height = -17
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = ClkSortOrder
      OnMouseDown = ButtonOnMouseDown
    end
  end
  object BtnSelectCurrent: TButton
    Left = 7
    Top = 386
    Width = 157
    Height = 40
    Hint = 'Selects the currently highlighted information'
    Caption = 'Select Current'
    Default = True
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = ClkSelectCurrent
    OnMouseDown = ButtonOnMouseDown
  end
  object BtnAddNew: TButton
    Left = 172
    Top = 386
    Width = 158
    Height = 40
    Hint = 'Add new student information'
    Caption = 'Add New Student'
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = ClkAddNew
    OnMouseDown = ButtonOnMouseDown
  end
  object BtnCancel: TButton
    Left = 335
    Top = 386
    Width = 158
    Height = 40
    Hint = 'Click here to use the "unknown" student records'
    Cancel = True
    Caption = 'Cancel'
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = ClkCancel
    OnMouseDown = ButtonOnMouseDown
  end
  object DBGrid1: TDBGrid
    Left = 7
    Top = 178
    Width = 495
    Height = 193
    Color = clWhite
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
    TitleFont.Color = clBlack
    TitleFont.Height = -15
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold, fsItalic]
    OnDblClick = ClkSelectCurrent
  end
end